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01 
02 
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09 
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14 
15 
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18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
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39 
40 



iWorkAreaHeight 



iWorkAreaWidth 



sTargetShape 



sRemoteTargetCriterion 



sPrimaryTargetlden 



sSecondaryTargetlden 



rTimeOut 



iMinCursorMove 



bJumpCursor 



iRegionsLimit 



iMaxGenerations 



sTitleBarFill 



sActiveRegionFill 



sInactiveRegionFill 



sPrimaryColor 



sSecondaryColor 



sStandardColor 



sHostingFill 



iTitleBailabelHeight 



iTifleBarGap 



iShellLabelHeight 



iShelllconHeight 



iRegionGap 



iTargetGap 



ilntraGap 



iRegionLineWidth 



iTargetUneWidth 



rAspectRatio 



iDefaultSase X 



sStandardCenterFill 



iCentralAreaLabelHeight 
iCentralArealconHeight 



iCentralAreaLineWidth 



iiconGap 



iRadius 



sCentralFunc 1 



sCentralFunc 2 



sCentralFunc 3 



sCentralFunc 4 



Where Stored 


Preferred Default 


6E08 


1 inch 


6E09 


2 inches 


see 881 04 


(Trapezoid | Rectangle} 


6E11 


{Most Used 1 User Declare} 


see 88102 


{Fill 1 Edge) Both} 


see 8B102 


{Fill 1 Edge [Both} 


6E12 


0.05 second 


6E13 


1 pixel 


6E14 


{TRUE 1 FALSE} 


6B01 


14 regions 


6B02 


(application specific) 


6B03 


Dark Blue 


6804 


Light Gray 


6B05 


Medium Gray 


see 8B102 


Pale Red 


see 881 02 


Pale Green 


6B10 


Light Gray 


8B11 


Dark Blue 


6B12 


10 points 


6B13 


2 points 


6816 


10 points with trap.; 0 with rect. 


6817 


12 points 


6B34 


1 point 


6B18 


1 point 


6B19 


2 points with trap.; 0 with red. 


6820 


2 points 


6821 


2 points 


6B23 


2 


6840 


24 points 


6D02 


Light Blue 


6D06 


10 points 


6D07 


16 points 


6D08 


2 points 


6D09 


2 points 


6D11 


36 points 


6D14 (system) 


Minimize active window 


6D15 (system) 


Maximize active window 


6D 16 (system) 


Close active window 


6D1 7 (system) 


Help 
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rRegions 



rFixedParms 



aVarParms 
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rFixedParms 




aVarParmSp 


01 


iRegionsLimit 




empty^ 


02 


iMaxGenerations 




rVaribleSj 


03 


cIrTitleBarFill 




empty. 


04 


cIrActiveRegionFill 




rVariables^ 


05 


cIrlnactiveRegionFill 




emotVc 


06 


cIrPrimaryFill 






07 


cIrPrimaryLino 




rVariables-D . .. .. 

fRegionsLimit 


08 


cIrSecondaryFill 




rVariableSj^ 


09 


cIrSecondaryLine 




10 


rJrSt?3ndardTaraet 


30 


i Half Reg ions 


11 


cirHostinaFili 


31 


iNumCvcles 


12 


iTitleBarLabelHeiaht 


32 


iHalfShellHeight 


13 


iTitleBarGaD 


33 


iRegionHeight 


14 


iTitleBarHeiaht 


34 


iRegionGap 


15 


iMaxLabelLenath 


35 

WW 


iTarg8tDisplace_Y 


16 


iShellLabelHeiqht 


36 


rAngle 


17 


iShelllconHeight 


37 


rBaseAngle 


18 


iTaraetGao 


38 

WW 


iBase Y 


19 


ilntraGao 


39 


iBase_X 


20 


iRpainnLineWidth 


40 

W 


iDefaultBase X 


21 

mm 1 


"iTaraetLineWidth 


41 


iMidUne 


22 


iTargetHeight 


42 


iLeftHorizRegion 


23 


iAspectRatio 


43 


iRightHorizRegion 


24 


iHalfNarrowSide 


44 


aQRegion[1] 


25 


iHalfWideSide 


45 


aQRegion[2] 


26 


ilnterTargetDistance 


46 


aQRegion[3] 


27 


iLowLabelDisplace_Y 


47 


aQRegion[4] 


28 


iLowlconDisplace_Y 






29 


iHighDisplace^Y 
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DEFINITIONS 

rReglonParms.FlxedParms: Parameters applicable to all shells 





01 


iRegionsLimit 


Maximum number of regions permitted for any display. 




02 


iMaxGenerations 


Maximum number of generations pennitted per toolbar activation. 




03 


clrTitleBarFill 


Background color of the title bar. 




04 


cIrActiveRegionFill 


Background color for regions that contain targets. 




05 


cIrlnActiveRegionFill 


Background color for regions that do not contain targets. 




06 


cIrPrimaryFill 


The color designating the color of the primary target filL 




07 


cIrPrimaryLine 


The color designating the color of the primary target boundary. 




08 


clrSecondaryFill 


The color designating the color of the secondary target fill. 




09 


cIrScondaryLine 


The color designating the color of the secondary target boundary. 




10 


cIrStandardTarget 


The color designating the color of all standard targets. 




11 


cIrHostingFill 


Background color for display shape currently hosting cursor. 




12 


iTitleBarLabelHeight 


Height of the label in the titlebar. 


IH 


13 


iTitleBarGap 


Space between titlebar boundary and the bounding rectangle 








of the titlebar label. 




14 


iTitleBarHeight 


Height of the titlebar 




15 


iMaxLabelLength 


If target labels are present, the maximum permitted length of a target label. 




16 


iShellLabelHeight 


If present, the height of text identifying target. 




17 


iShelllconHeight 


Height and width of target icons; icons presumed to be square. 




18 


iTargetGap 


Distance between the top of the target line and the bottom of the closest 


H= 






target identifier 




19 


ilntraGap 


If present, vertical distance between top edge of bottom identifier and 








bottom edge of top identifier. 




20 


iRegionLineWidth 


Thickness of line delimiting regions. 




21 


iTargetUneWidth 


Thickness of line delimiting targets. 




22 


Target Height 


Vertical distance between wires denoting top and bottom of target. 




23 


iAspectRatio 


Ratio between the length of the iHalfWideSide and iHalfNarrowSide. 




24 


iHalfNarrowSide 


One half the length of the bottom edge of the reference base target. 




25 


iHalfWideSide 


One half the length of the top edge of the reference base target. 




26 


ilnterTargetDistance 


The horizontal distance between the midpoints of contiguous exterior targets 



27 iLowLabelDisplace_Y Vertical distance between the bottom target wire and top of label when 

label is bottom identifier. 

28 iLowlconDisplace_Y Vertical distance between the bottom target wire and top of icon when 

icon is bottom identifier. 

29 iHighDisplace_Y Vertical distance between the bottom target wire and top of top identifier. 
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rRegionParms.aVarParms[K].rVariables: Parameters for shells with K regions 

30 iHalfRegionsNumber of regions comprising eacli lialf of the shell 



31 INumCycles 

32 iHalfShellHeight 

33 iRegionHeight 

34 iRegionGap 

35 iTargetDisplace^Y 

36 rAngle 

37 rBaseAngle 



38 IBase Y 



39 iBase X 



40 iDefaultBase_X 

41 iMidLine 

42 iLeftHorizRegion 

43 iRightHorizRegion 

44 aQRegion[1] 

45 aQRegion[2] 

46 aQRegion[3] 

47 aQRegion[4] 



Number of regions in a quadrant, (Horizontal regions are excluded). 
Vertical distance between the central-area origin and the top of the shell 
Vertical distance between the horizontal region wires in the non-converging 
portion of a region. 

Vertical distance between top of region line and bottom of the target line 
Vertical distance between the bottom region wire and the bottom target wire. 
Angle subtended by each region at center of display. 
Reference angle: 

= 0 if no horizontal regions, 

= rAngle/2 if horizontal regions are present. 
Reference vertical displacement; 

= 0 when horizontal regions are not present, 

= iHalfRegionHeight when horizontal regions are present. 
Reference horizontal displacement; 

iNumRegions > 4 regions: = Apex2.Xfor region containing rBaseAngle > 0. 

INumRegions <= 4 regions:= rRadius + iDefaultBase^X. 
Externally assigned displacement from edge of central area. Employed 
with 2 & 4 region displays. 

The datum line for determination of the horizontal center of exterior targets 
If present, region number of the left horizontal region. 
If present, region number of the right horizontal region. 
Number regions to left of the Y-axis and wholly above the X-axis 
Number regions to left of the Y-axis and wholly below the X-axis 
Number regions to right of the Y-axis and wholly above the X-axis 
Number regions to right of the Y-axis and wholly below the X-axis 
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aApexParms 



6C00 



empty <j 



aRegionApexeSp 



empty3 



aRegionApexes, 



emptyg 



aRegionApexeS;^,^;^„3,;^, 



aRegionApexeSp 



rNearApexes^ 



rNearApexeSg 



rNearApexes^^3^^^,^„3 



null 



iMaxRegions+1 



null 



IReqionsLimlt 



01 
02 
03 



rNearApexs. 



cApexJ 



cApex_2 



iNumlnteriorTargets 



cApex_N 



X 



Y 



DEFINITIONS 
aApexParms[R].aRegionApexes[C].rNearApexes 

01 cApexJ The bottom apex closest to X-axis of the C*^ region of a R region shell. 

02 cApex_2 The top apex closest to X-axis of theCth region of a R region shell. 

03 INumlnteriorTargets Number of targets that can be displayed between IBase^X and the Y-axis. 
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rCentralArea 



rFixedParms aFuncs 



6D00 





rFixedParms 




aFuncs 


01 


iNurtiFuncs 


12 


rLocator^3„, 


02 


cIrStandardCenterRII 




rLocator^jt 


03 


iHalfMenuWidth 


1*1 


rLocatofp^^^j 


04 


iHalfDoneWidth 


ID 


rLocatorp^„c_2 


05 


iHalfGen_XWidfli 


16 


rLocatorp^,,_3 


06 


iCentralAreaLabelHeight 


17 


rLocatorF,„,_4 


07 


iCentralArealconHeight 






08 


iCentralAreaLineWidth 




rLocator 


09 


ilconGap 




18 


pFunc 


10 


iHighlconDisplace 


19 


picon 


11 


iRadius 







DEFINITIONS 



rCentralArea.rFixedParms 



01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 



iNumFuncs 

clrStandardCenterFill 

HalfMenuWidth 

HalfDoneWidth 

HalfGen^XWidth 

CentralAreaLabelHeight 

iCentralArealconHeight 

CentralAreaLineWidlh 

IconGap 

HighlconDisplace 
Radius 



Number of function icons defined for the central-area. 

Background color for central-area shapes that are not hosting the cursor. 

Half length of the word "Menu" 

Half length of the word "Done" 

Half length of the string "Gen_X" 

Height of text of the central-area. 

Height of icon in the central-area. 

Thickness of line delimiting shapes within the central-area. 

Distance from the relevant central area line and the near edge of the icon. 

Distance from the relevant line wire to most distant icon edge icon. 

Radius of arc portions of the central-area. 



rCentralArea.rFuncs 



12 rLocalorj 

13 rLocator^ 

14 rLocatorj 

15 rLocatorj 

16 rLocatorj 

17 rLocator, 



Menu 
Exit 



Func_1 
Func_2 
Func_3 



Funcjt 



Pointer to the Menu subsystem. There is no icon pointer 

Terminates the current activation of the toolbar subsystem via 10G00. 

This record contains null values and is provided only to maintain logical symmetry. 

If present: pFunc-> Address Function #1 ; plcon-> Address Icon #1 ; null otherwise. 

If present: pFunc-> Address Function #2; plcon-> Address Icon #2; null otherwise. 

If present: pFunc-> Address Function #3; plcon-> Address Icon #3; null otherwise. 

If present: pFunc-> Address Function #4 plcon-> Address Icon #4; null otherwise. 



rCentralArea.rFuncs[N].rLocator 

1 8 pFunc Pointer to module implementing the N^^ central-area function. 

1 9 pIcon Pointer to icon of N*^ central-area function. 
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rSessionParms 




r- btUU 






01 


pnAC 




07 


cCenterCentralArea 




13 


iMinCursorMove 


02 


pnlnitialAC 




08 


iWorkAreaHeight 




14 


bJumpCursor 


03 


cInitialAxisOrigin 




09 


iWorkAreaWidth 




15 


iPriorHostGroup 


04 


cStartCunsor 




10 


iGenerationNo 




16 


iPriorHost 


05 


handleTBWindow 




11 


sRemoteTargetCriterion 




17 


iCurrHostGroup 


06 


cTLMaximumDisplay 




12 


rTimeOut 




18 


iCurrHost 




1 




1 







DEFINITIONS 

rSessionParms: ARRAY OF VARIABLES VALID FOR A CURRENTLY ACTIVE DISPLAY 

01 pnAC Pointer to the llnAC array of pointers that identify nodes of linked list structures 

that control user interaction with the current activation of the toolbar subsystem. 
Pointer to first node of llnAC. Allocated at each activation of toolbar subsystem. 
Screen coordinates of axis at activation if toolbar subsystem. 
Cursor coordinates at toolbar subsystem activation (relative to cInitialAxisOrigin). 
Pointer to data and proceduresthat manage the display window. 

06 cTLMaximumDisplay Coordinates of top-left corner of maximum display (relative to cCenterCentralArea). 

07 cCenterCentralArea Coordinates of the center of the central-area (relative to cInitialAxisOrigin). 

08 IWorkAreaHeight Height of screen area of current user interest. 

09 iWorkAreaWidth Width of screen area of current user interest. 

1 0 iGenerationNo Number of generations of current toolbar display. 

1 1 sRemoteTargetCriterion String identifying criterion for primary and secondary targets of each group. 



02 pnlnitialAC 

03 cInitialAxisOrigin 

04 cStartCursor 

05 handleTBWindow 



12 rlimeOut 

13 iMinCursorMove 

14 bJumpCursor 

15 iPriorHostGroup 

16 iPriorHost 

17 iCurrHostGroup 

18 ICurrHost 



Duration between "time-outs" used to check for cursor movement 

The least distance the cursor can move without testing for new host shape. 

TRUE= jump cursor to cStartCursor at termination of toolbar subsystem, 

FALSE= do not jump cursor at termination of toolbar subsystem. 

Identifier of region hosting cursor prior to current host (null if a non-Region). 

Identifier of cursor host that preceeded current host . 

Identifier of region currently hosting cursor (null if a non-Region). 

Identifier of current cursor host: 



>100 (Icon lden+100) 
(iNumRegions+1)to >iMaxRegions 
1 toiNumRegions 





0 


-1 


& -2 




-3 




-4 


-5 


to -8 


-11 


to-12 


-21 


to-22 



-(Generation+10) 
-(Generation+20) 



Identification of target 
Identification of inactive region 
Identification of active region 
Title bar of current toolbar 
Gen_1 & Gen_2 shape respectively 
Menu shape 
Done shape 

#1-#4 central-area function shapes 
Label of ancestors 1 & 2 respectively 
Ghost shells of ancestors 1 & 2 respectively 
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6F00 



ilnAC 











' 1 


'^^*-'Curr-1 





nAC, 



nAC 



pParent pChild rActivityControl 



01 02 



rActivityControl 



03 


pnTP 


04 


pnGP 


05 


pnIS 



DEFINITIONS 

01 pParent Pointer to parent of current nAC node 

02 pChild Pointer to child of current nAC node. 



*pnAC. rActivityControl. 

03 pnTP Pointer to currently active nTP node. 

04 pnGP Pointer to currently active nGP node. 

05 pnIS Pointer to currently active nIS node. 
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llnTP 



nTP, 



Curr 



CuiT-1 



6G00 



nTP, 



nTP^ 

nTP 

pParent rToolBarParms 
01 





rToolBarParms 


02 


iNumRegions 


03 


iHalfShellWidth 


04 


'iNumTargetGrcups 


05 


iTotalNumTargets 


06 


iSelectedTargetlden 


07 


sToolbarLabel 


08 


cTLShell 


09 


cTLDisplay 


10 


bDoneButton 



01 pParent 



DEFINITIONS 

Pointer to parent of current nTP node. 



*^pnTP-rToolBarParms 



02 iNumRegions 

03 iHalfSheliWidth 

04 INumTargetGroups 

05 iTotalNumTargets 

06 iSelectedTargetlden 

07 sToolbarLabel 

08 cTLSheil 

09 cTLDisplay 

10 bDoneButton 



Number of regions of the current display. 
Half the width of the currently active shell. 
Number of target groups in current toolbar. 
Total number of targets in current toolbar. 
Identification number of target selected by the user. 
Label identifying the current toolbar; null if no label. 
Coordinates of current shell origin 
Coordinates of displayorigin 
T-> "Done" shape in central-area; 
F-> no "Done" shape in central-area. 
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llnGP 



nIG 



Curr 



6H00 



nIG, 



CUIT-1 



nIG. 



nGP 

pParent aTargetGroups 



01 

aTargetGroups 

rGroupParms^ 
rGroupParms^ 



rGroupPamns^t^^^TametGroups 







rGroupParms 




02 


iGroupStart 




03 


iGroupEnd 




04 


iPrimaryTarget 




05 


iSecondaryTarget 



DEFINITIONS 

01 pParent Pointer to parent of current nGP node. 

*pnGP.aTargetGroups[K].rGroupParms 

02 iGroupStart Target identifier number of current nIS.alconSet commencing the K^^ group. 

03 iGroupEnd Target identifier number of current nlS.alconSet ending the group. 

04 IPrimaryTarget Target identifier number of primary target of target group. 

05 iSecondaryTarget Target identifier number of secondary target of target group, 
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linIS 



nil, 



t: 



Curr 



6100 



nil 



'Curr-1 



nil. 



nlS 



pParent 



alconSet 



01 

alconSet 



rlconParms^ 



rIconParmSo 



rlconParms, 



ITotalNumTargets 



02 
03 
04 
05 
06 
07 



rlconParms 



pChildToolbar 



pOtherControl 



iMenuTag 



pIcon 



pLabel 



iTargetType 



DEFINITIONS 

01 pParent Pointer to parent of current nlS node. 



*pnlS.alconSet[K].rlconParms 



02 pChildToolBar 

03 pOherControl 

04 iMenuTag 

05 pIcon 

06 pLabel 

07 iTargetType 



Pointer to icon subset when selected target activates another level of display 
Null if no child toolbar. 

Pointer to icon subset when selected target activates display of a non-toolbar control. 
Null if no non-toolbar control. 

Tag value of menu leaf when selected target is nnenu leaf. Null if not a menu leaf. 

Pointer to icon identifier of target. 

Pointer to label identifier of target. 

identifies technique by which user acquires target: 

1= PrimaryTarget: Acquire by remote single click or by single click on target. 

2= SecondaryTarget: Acquire by remote double click or by single click on target. 

3= StandardTarget: Acquire only by single click on target. 
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Computer Start-Up ~^ 



OperatingSystemO; 



GenerateShell-CentralAreaParmsO; 



PROGRAM MasterCallModuleQ; 



READ_DISK(Regions); 
READ_DISK(ApexParms); 
READ_DISK(CentralArea); 
READ_DISK(SessionParms) 



WRITE_DIRECT_ACCESS(rRegions); 
WRITE_DIRECT_ACCESS(aApexParms); 
WRITE_DIRECT_ACCESS(rCentralArea); 
WRITE_DIRECT_ACCESS(rSessionParms); 



REPEAT (forever) 



User action in Application Software Interface 




Uo*i Other Activity i-i 

' i 



WITH rSessionParms 
pnAC = null; 

cInitialAxisOrlgin = GET_AXIS_ORIGIN{); 
cStartCursor = GET_CURSOR_COORDS0; 
iGenerationNo = 0; 
END_WITH 

pToolbarParms= GET_POINTER_TO_TOOLBAR(); 

bMoveCursor = rSessionParms.bJumpCursor; 



ToolBarSubsystem(pToolbarParms, bMoveCursor, "New", I'ReturnValue, 
rRegions, aApexParms, rCentralArea,rSessionParms, llnAC, llnTP, llnGP, llnIS); 



TerminateToolBar(bMoveCursor, 
rSessionParms, llnAC, llnTP, llnGP, llnlS); 




Yes ^Activate Menu SubsystemQ; 



Yes i^Activate Other ControlQ; 



END^REPEAT; 



Q Computer Shut-Down ^ 

FIGURE 7A 
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PROCEDURE ToolBarSubsystem(pTooIbarParms, 

bMoveCursor, sNextAction, iReturn Value 
rRegions, aApexParms, rCentralArea, 
rSessionParms, llnAC, llnTP, llnGP, llnIS); 



// Generate initial toolbar display 
GenerateToolBar(pToolbarParms, 
rRegions, aApexParms, rCentralArea, 
rSessionParms, llnAC, llnTP, llnGP, llnIS); 



// Determine whether current toolbar is MultiSelect 
pnAC = rSessionParms.pnAC; 
pnTP =*pnAC.rToolbarParms.pnTP; 
bMuitiSei=*pnTP.rToolbarParms.bDoneButton; 

E 



// Determine whether current toolbar is initial control 
jParent= rSessionParms.iGenerationNo - 1 ; 



REPEAT(forever) 



User action in ToolBar Interface 



ManageToolBarUse( 

bMoveCursor, sNextAction, iReturnValue, 
rRegions, aApexParms, rCentralArea, 
rSessionParms, llnAC, llnTP, llnGP, llnlS); 




No iCenlralAreaFunction(POiNTER(iReturnValue), 
i sNextAction, iReturnValue); 



7B00 



9A00 



7B102 



7B104 



10A00 




7B106 



;TargetFunction(POINTER(iReturnValue), 
I sNextAction, IReturnValue); 
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sNextAction= "Exit"; 



END_REPEAT(ToolBar Loop); 



c 



RETURN 
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PROGRAM GenerateShell-CentralAreaParmsQ; 



User declares alternate values for rDefault 



WITH rSessionParms 

iWorkAreaHeight = rDefaults.iWorkAreaHeight; 
iWorkAreaWidth = rDefaults.iWorkAreaWldth 
sRemoteTargetCriterion=rDefaults.sRemoteTargetCriterion; 
rTimeOut = rDefaults.rTimeOut; 

iMinCursorMove = rDefaults.lMinCursorMove; 
bJumpCursor = rDefauits.bJumpCursor; 
END.WITH; 

i 



GenerateRegionParms(rDefault, rRegions); 



GenerateNearApexParms(rRegions, aApexParms); 



GenerateCentralAreaParms(rDefault, rCentralArea); 



READ_DIRECT_ACCESS(rRegions); 
READ_DIRECT_ACCESS(aApexParms); 
READ_DIRECT_ACCESS(rCentralArea); 
READ_DIRECT_ACCESS(rSesslonParms); 



WRITE_DISK(Regions); 
WRITE_DISK(ApexParms); 
WRITE_DISK(CentralArea); 
WRlTE_DlSK(SessionParms); 



8A00 
8A02 



8A04 



( RETURN ) 



8B00 
8C00 
8D00 

8A06 
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PROCEDURE GenerateRegionParms{rDefauIts, rRegions); 



8B00^ i ^8B102 

WITH rRegions.rFixedParms 

iRegionsLimit = rDefaults.iRegionsLimit; iMaxGenerations= rDefaults.iMaxGenerations; 

cirTitleBarFili = COLOR(rDefaults.sTitleBarFil!); 
clrActiveRegionFill = COLOR(rDefaults.sActiveRegionFill); 
clrlnactiveRegionFill= COLOR(rDefaults.slnactiveRegionFill); 
CASE(rDefaults.sPrimaryTargetlclen) 

Fill: clrPrimaryFiil=COLOR(rDefaults.sPrimaryColor}; 
clrPrimaryLine=COLOR(rDefaults.sStandardColor); 

Edge:clrPrimaryFill=COLOR(rDefaults.sStandardColor); clrPrimaryLine=COLOR(rDefaults.sPrimaryColor); 

Both: clrPrimaryFiil=COLOR{rDefaults.sPrimaryColor); clrPrimaryLine= COLOR(rDefaults.sPrimaryColor); 
END_CASE; 

CASE(rDefaults.sSecondaryTargetlden) 
Fill: cIrSecondaryFil! = COLOR(rDefaults.sSecondaf7Color); 

clrSecondaryLine = COLOR(rDefaults.sStandardColor); 
Edge: cIrSecondaryFill = COLOR{rDefaults.sStandardColor); 

ClrSecondaryLine = COLOR(rDefaults.sSecondaryCo[or); 
Both: CIrSecondaryFill = COLOR(rDefaults.sSecondaryColor); 

ClrSecondaryLine = COLOR{rDefau!ts.sSecondaryColor); 
END^CASE; 

clrStandardTarget= COLOR{rDefaults.sStandardColor; 
cIrHostingFill = COLOR(rDefaults.sHostingFill; 

iTitleBarLabelHeight= rDefaults.iTitleBarLabelHeight; iTitleBarGap= rDefaults.iTitleBarGap; 
(ShellLabelHeight= rDefaults.iShellLabelHeight; iShelllconHeight = rDefaults.iShelllconHeight; 
iTargetGap = rDefaults.iTargetGap; ilntraGap= rDefaults.ilntraGap; 
iRegionLineWidth= rDefaults.RegionLineWidth; iTargetUneWidth = rDefaults.lTargetUneWidth; 
iLowLabelDisplace_Y= iTargetLineWidth/2 + iTargetGap +iShellLabelHeight; 
ILowlconDispiace^Y = iTargetLineWidth/2 + iTargetGap +iShelllconH eight; 
IHIghDisplace = ILowlconPisplace Y + ilntraGap + iSheilLabelHeight: 



8B104 



iTilleBarHeight=iTitleBarLabelHeight + 2*iTitleBarGap + iRegionLineWidth; 

iTargetHeight = iTargetLineWidth +2*iTargetGap+ilntraGap+iShellLabelHeight+iShelliconHeight; 

iHalfNarrowSide= (iShelllconHeight/2)+3; // "3" a pixel value 

iHalfWideSide = (rAspectRatio*iTargetHeight)/2; 

ilnterTargetDjstance= iHalfNarrowSide + iHalfWideSide; 

IF(sTargetShape = "Rectangle") rAspectRatio = 1 ; 

ELSE rAspectRatio = iHalfWideSide/iHalfNarrowSide; 

END; 




IMaxLabeiLength = ITargetHeight - 
(ITargetLineWidth + 21TargetGap); 



8B106 



q=ARCTAN(iTargetHeight/(iHalfWideSide-iHalfNarrowSide); 
iFrag= iHalfTargetLine+iTargetGap+ShellLabelHeight)/TAN{q ) 
iMaxLabelLength= 2*(iHalfWideSide-iFrag); 



END_WITH; 
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8B202 



8B204 



iHalfNarrow = rRegions.rFixedParms.iHalfNarrowSide; 
iTargetHeight= rRegions.rFixedParms.iTargetHeight; 
iTargetUne = rRegions.rFixedParms.iTargetLineWidth; 
iRegionUne = rRegions.rPixedParms.iRegionUneWidth; 

DO iNumRegions= 2 TO rRegions.rFixedParms.iRegionsLimit BY 2 
WITH rRegiQns.aVarParms[(NumRegions].rVariables 



8B206 



8B208 



iHalfRegions = iNumRegions/2; iHoriz = l\/IODULO(4, iNumRegions); 
iNumCycles = iNumRegions/4; rAngle= 360.0/REAL(iNumRegions); 
iRadius = rDefaults.iRadius; I'RegionGap = rDefault.iRegionGap; 
iRegionHeight= iTargetHeight + 2*iRegionGap + iTargetUne + iRegionUne; 
IF(iHalfRegions*iRegionHeight <= iDiameter) 

iRegionHeight= iDiameter/iHalfRegions; 

IRegionGap = 

(iRegionHeight- (iTargetHeight+iTargetLineWidth+iRegionLineWidth))/2; 
ENDJF; 

iTargetDisplace_Y= iRegionGap+(iRegionLine+iTargetUne)/2; 




Yes- 



rBaseAngle = 0.0; // Shells without horizontal regions 

iBase_Y = 0; 

IF{iNumRegions = 4) iBase^X = rDefaults.lDefaultBase^X; 
ELSEIF(iNumRegions=8) // Adjust IRegionHeight for rRadius 
iBase_X = iRegionHeight + (iHalfWide - iHalfNarrow); 
ELSE iBase_X= lNTEGER(REAL(iRegionHeight)/TAN(rAngle); 
ENDJF; 

iMidUne = iBase_X + iHalfNarrow; 
iHalfShellHeight = iNumCycleslRegionHeight; 
iLeftHorizRegion = 0; iRightHorizRegion= 0; 

iQRegion[1] = iNumberCycles; (QRegion[2] = INumberCycles + 1; 

iQRegion[3] = iNumCycles+IHaifRegions; iQRegion[4] = jQRegion[3] + 1; 



iBase_Y= iRegionHeight/2; 
IF(iNumRegions = 2) 
rBaseAngle= 0; 

iBase_X = rOefaults.iDefaultBase^X + iRadius; 
ELSE 

rBaseAngle= rAngle/2.0; 

iBase.X = INTEGER(REAL{iBase^Y)/TAN(rBaseAngle)); 
ENDJF; 

iMidUne = iBase^X + iHalfNarrow; 
iHalfShellHeight =iRegionHeight*(iNumGycles+0.5); 
ILeftHorizRegion = INumCycles + 1; 
iRightHorizRegion= iLeftHorizRegion+iHalfRegions; 
IF(iNumRegions = 2) iQRegion[1..4] = (0,..,0) 
ELSE 



//Shells with horizontal regions 



iQRegion 
iQRegion 
ENDJF; 



;1] = ILeftHorizRegion - 1 ; iQRegion[2] = ILeftHorizRegion + 1 ; 
3] = iRightHorizRegion- 1; iQRegion[4] = iRightHorizRegion+ 1 ; 



FIGURE 8B2 



END.WITH; 
^ND_DO(eaGh shell size); 



return"^ 
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PROCEDURE GenerateNearApexPamns(rRegions, aApexParms); 



DO iNumRegions = 2 TO rRegions.rFixedParms.iRegionsLimit BY 2 



rRegions.aVarParms[iNumRegions].rVariables.iNumlnteriorTargets=0; 
iBase^X = rRegions.aVarParms[iNumRegions].rVariables.iBase_X; 
iBase_Y = rRegions,aVarParms[iNumRegions].rVariables.iBase_Y; 
rAngle = rRegions.aVarParms[iNumRegions].rVariables.rAngle; 
rBaseAngle= rRegions.aVarParms[iNumRegions].rVariabIes.rBaseAngle; 




J 



8C00 
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// Apex parms for horizontal regions: 

iLeft=rRegions.aVarParms[iNumRegions]. rVariablesJLeftHorizRegion; 
WITHaApexParms[iNumRegions].aRegionApexes[iLeft].rNearApexes 
cApex_1 .X= -iBase_X; cApex_1 .Y= -iBase_Y; 
cApex_2.X= -iBase_X; cApex_2.Y= +iBase_Y; 
END WITH; 

iRight=rRegions.aVarParms[iNumRegions]. rVariables.iRightHorizRegion; 
WITH aApexParms[iNumRegions].aRegionApexes[iRight].rNearApexes 
cApex_1 .X= +iBase_X; cApex_2.X= +iBase_X; 
cApex_1 .Y= -IBase^Y; cApex_2.Y= +iBase_Y; 
END.WITH; 



IHalfWide = rRegions.rFixedParms.lHalfWideSicle; 
iHalfNarrow = rRegions.rFixedParms.lHalfNarrowSide; 
IRegionHeight = rRegions.rPixedParms.iRegionHeight; 
ilnterTargetDist= rRegionsTPixedParms.ilnterTargetDistance; 
rTopAngle= iBaseAngle; iTop_X= iBase_X; iTop_Y= iBase_Y; 




DO iCycle = 0 TO (INumCycles - 1) BY 1 



8C108 
8C110 



// Set temporary values display of 4 regions 
iBottom^X = iBase_X; iBottom^Y = 0; 
ilop^X = iBase_X - (IHalfWide-iHaifNarrow); 
iTop_Y = iRegionHeight; 




// Set temporary values for displays of over 4 regions 

rTopAngle= rlopAngle+rAngle; iBottom_X= iTop_X; iBottom_Y= iTop^Y; 




8C112 



iTop_Y= iTop_Y + iRegionHeight; 
iTop,X= (iTop,Y/TAN(rTopAngle)); 



iTop_Y= ilop^Y + iRegionHeight; 
iTop,X=0; 



II uaicuiate number ot interior targets 
ilnteriorTargets =(iBase^X - iTop_X))/ilnterTargetDist; 



Fig8C2 
A 
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8C202 



WITH rRegions.aVar 



iRow1 = iQRegion 
iRow2 = iQRegion 
iRow3 = iQRegion 
iRow4 = iQRegion 
END^WITH; 



'arms[iNumRegionsI.rVariables 

- iCycle; 
+ iCycle; 

- iCycle; 
+ iCycle; 



// Store near apex values of quadrent #1 

WITHaApexParms[iNumRegions].aRegionApexes[iRow1].rNearApexes 

INuminteriorTargets = ilnteriorTargets; 

GApex1.X = -iBottom_X; 

cApexlY = +iBottom_Y; 

cApex2.X = -ITop^X; 

cApex2.Y = +iTop„Y; 

END„WITH: 



// Store near apex values of quadrent #2 

WITH aApexParms[iNumRegions].aRegionApexes[iRow2].rNearApexes 

INuminteriorTargets = ilnteriorTargets; 

cApexl .X = -iBottom_X; 

cApexl.Y = -iBottom_Y; 

€xApex2.X = "iTop_X; 

cApex2.Y = "iTop_Y; 

END_WITH; 



// Store near apex values of quadrent #3 

WITH aApexParms[iNumRegions].aRegionApexes[iRow3].rNearApexes 

iNumlnteriorTargets = ilnteriorTargets; 

cApexl .X = +iBottom„X; 

cApexl .Y = +iBottom_Y; 

cApex2.X = +iTop_X; 

cApex2.Y = +iTop_Y; 

END^WITH; 



// Store near apex values of quadrent #4 

WITH aApexParms[iNumRegions].aRegionApexes[iRow4].rNearApexes 

iNumlnteriorTargets = ilnteriorTargets; 

cApex1.X = +iBottom_X; 

cApexl .Y = -iBottom^Y; 

cApex2.X = +iTop_X; 

cApex2,Y = -iTop„Y; 

END_WITH; 



END_DO(Generation of NearApexParamreters for given display); 



END_DO(Generation of NearApexParamreters for all displays); 



( RETURN ) 
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PROCEDURE GenerateCentraiAreaParms(rDefault, rCentralArea); 



(Outside activity not detailed by tliese disclosures is required to determine the 
modules and identify icons available for activation via a central area function. 




8D00 
8D02 



// Determine number of Central Area functions to accomodate 
WITH rCentralArea.rFixedParms 
IF(rDefault.sCentralFunc„1 = null) 
iNumPuncs = 0; 

ELSEIF(rDefault.sCentra!Func_3 = null) 
iNumFuncs = 2; 
ELSE 

iNumFuncs = 4; 
END; 



8D04 



// Pre-load Fixed parameters of Central Area 
cIrStandardCenterFill = COLOR(rDefault.sStandardCenterFill); 
iHalfMenuWidth = LENGTH("Menu")/2; 
iHalfDoneWidth = LENGTH("Done")/2; 
iHalfGen^XWidth= LENGTH("Gen.X")/2; 
iCentra!AreaLabelHeight=rDefault.iCentralAreaLabelHeight; 
iCentralArealconHeight = rOefauItJCentralArealconHeight; 
iCentralAreaLineWidth = rDefault.iCentralAreaLlneWidth; 
ilconGap = rDefaultiRegionGap; 
iHighlconDisplace= iCentralArealconHeight+ilconGap; 
iRadius = rDefault.iRadius; 

END^WITH; 



8D06 



( RETURN ) 
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PROCEDURE GenerateToo!Bar(pToolbarParm$, rRegions, aApexParms, 

rCentralArea, rSessionParms, llnAC, llnTP, llnGP, llnIS); 



// Allocate memory for specified level of Tool Bar Subsystem 
AllocateMemory(pToolbarParms, rSessionParms, llnAC, llnTP, llnGP, llnIS); 




;// implementation. With the Spider ToolBar it is presumed the best location provides 
ill coordinates for the central area center that generally remain fixed during a bcurrent 
{// activation of ToolBar subsystem. 
// RETURNS: cCenterCentralArea 



9A00 
9B00 

9A02 



\ll Calculate "best" locaton of ToolBar display. 

»// NOTE: Requires implementation of techniques not subsumed by this preferred 



// Allocate resources for ToolBar display window 
handleTBWindow= 

CREATE^WINDOW{NAME=sAplicationTitle, TITLEBAR=NONE, RENDER=NO, 
BOUNDARY„WIDTH=0, FILL=TRANSPARENT); 



// Translate axis to position origin at cCenterCentralArea 
rSessionParms.cCenterCentralArea= cCenterCentralArea; 
TRANSLATE J\XIS(FROIVI= rSessionParms.ilntialAxisOrigin, 
TO = rSessionParms.cCenterCentralArea); 



CalculateShel!Width(rRegions, aApexParms, rSessionPanns, llnAC, llnTP, llnGP); 



CalculateDispIayOrigin(rRegions, rSessionPanns, llnAC, llnTP); 



GenerateShell{ rRegions, aApexParms, rSessionParms, llnAC, llnTP); 



GenerateCentraIArea{rCentralArea, rSessionParms, llnAC, llnTP); 



GenerateTargets(rRegions, aApexParms, rSessionParms, llnAC, llnTP, llnGP, llnIS); 



9C00 
9D00 
9E00 
9F00 
9G00 



// Position cursor near display center & fill. 
CASE(rSessionParms.iGenerationNo) 

1:iCurrHost = -3; 

2:iCurrHost = -1; 

3: iCurrHost = -2; 
END^CASE; 

rSessionParms.iCurrHostGroup = null; rSessionParms. iCurrHost = iCurrHost; 
PUT_CURS0R(+5, 0); FILL(HANDLE=rSessionParms.handleTBWindow, 
IDEN=iCurrHost, COLOR=rRegionsTFixedParms.clrHostingFill); 



9A04 
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PROCEDURE AllocateMemory(pToolbarParms, 
rSessionParms, llnAC, llnTP, llnGP, llnIS); 



// Acquire parameters of ToolBar list from system 

iNumTargetGroups = GET_NUI\/lBER_OFJCON_GROUPS{*pToolbarParms); 
iTotalNumTargets = GET_TOTAL_NUWIBER_OFJCONS(*pToolbarParms); 
bDoneButton = GET_TRUEJF_MULTLSELECT(*pToolbarParms); 
sToolbarLabel = GET_TOOLBAR_LABEL(*pTo olBarPamns); 



9B00 



9B02 



// Allocate memory for a nAC node, load initial values. 
iOenerationNo = rSessionParms.iGenerationNo + 1; 
rSessionParms.iGenerationNo = iGenerationNo; 
pnOldAC= rSessionPamns.pnAC; 
pnAC= GET_MEMORY(nAC); 
rSessionParms.pnAC = pnAC; 
*pnAC.pCtiild =null; 
*pnOldAG.pChild= pnAC; 
IF(iGenerationNo = 1) 

*pnAC.pParent = null; 

rSessionParms.plnitialAC = pnAC; 
ELSE *pnAC.pParent = pnOldAC; 
END; 



// memory => [2+3] 



9B04 



// Allocate memory for a nTP node and load initial values 
pnTP= GET_MEMORY(nTP); 
*pnAC.rAotivityControl.pnTP= pnTP; 
IF(iGenerationNo = 1) *pnTP.pParent = null; 
ELSE *pnTP.pParent = *pnOldAC.rActivityControl.pnTP; 
END; 

*pnTP.rToolBarParms.iNumRegions =((iNumTargetGroups+1)/2)*2; 
*pnTP.rToolBarPanns.iNumTargetGroups= INumTargetGroups; 
*pnTP.rToolBarParms,iTotalNumTargets= ITotalNumTargets; 
*pnTP.rToolBarParms.bDoneButton = bMultiSeiect; 
*pnTO.rToolBarPanns.sToolBarLabel=sToolBarLabel; 



// memory =>[[1 +7+2*2] 



9B06 



// memory => 
// 1+4*iNumTargetGroups] 



// Allocate memory for a nGP node & load initial values 
pnGP= GET_IVIEIViORY(nGP); 
*pnAC.rActivityControl .pnGP= pnGP; 
IF(iGenerationNo = 1) *pnGP.pParent = null; 
ELSE *pnGP.pParent = *pnOldAC.rActivityControl.pnGP; 
END; 

CONVERT(ICON_GROUPS_OF(*pToolbarParms) 

TO_FORMAT_OF(rGroupParms)AND_LOAD_TO(*pnGP.aTargetGroups)); 



9B08 



// memory => 
//[1+6*iTotalNumTargets] 



// Allocate memory for a nIS node & load initial values. 
pnlS= GET_l\/lEMORY(nlS); 
*pnAC.rActivityControl.pnlS= pnIS; 
IF(iGenerationNo = 1) *pnlS.pParent = null; 
ELSE *pnlS.pParent = *pnOldAC.rActivityControl.pnlS; 
END; 

CONVERT(ICONS_OF{*pToolbarParms) 

TO_FORMAT_OF(rlconParms) AND_LOAD_TO(*pnlS.alconSet)); 



9B10 



(return) 
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PROCEDURE CalculateShei!Width{ 
rRegionS; aApexParms, rSessionParms, llnAC, llnTP, llnGP); 



9C00 



pnAC = rSessionParms.pnAC; 

pnTP = *pnAC.pnTP; pnTG = *pnAC.pnTG; 

iTotOroups = *pnTP.rToolBarParms.iNumTargetGroups; 

iNumRegions = *pnTP.rToolBarParms.iNumRegions; 
ilnterTargetDistance = rRegions.rFixedParms.ilnterTargetDistance; 
iHalfWideSide = rRegions.rFixedParms.iHalfWideSide; 
iHalfNarrowSide = rRegions.rFixedParmsJHalfNarrowSide; 
WITH rRegions.rVarParmspNumRegionsJ.rVariables 

iLeftHoriz = iLeftHorizRegion; iRightHoriz= iRightHorizonRegion; iMidLn= iMidUne; 
END^WITH; 
iGroupSize= 0; 



9C02 



DO iCurr = 1 TO iTotGroups BY 1 



iNumlcons=(*pnTG.aTargetGroups[iCurr].rGroupParms.iGroupEnd- 
*pnTG.aTargetGroups[iCurr].rGroupParms.iGroupStart+1)- 
aApexParmspNumRegions].rRegionApexes[iCurr].rNearApexes.iNumlnteriorTargets; 




iNumGroups = 1; 
iGroupSize =iNumlcons; 
aMaxGroups[1]= iCurr; 



iNumGroups= iNumGroups + 1; 
aMaxGroup[iNumGroups]= iCurr; 



END_DO(identification of region(s) containing largest icon group); 



9C04 



iHaIfSheilWidth=iMidLn+((iGroupSize-1)*jInterTargetDistance); 




9C06 



(return) 



FIGURE 9C 



Title: COMPUTER INTERFACE TOOLBAR FOR ACQUIRING MOST FREQUENTLY ACCESSED OPTIONS 

USING SHORT CURSOR TRAVERSES 
Inventor: Stanley W. Driskell 
Atty. Ref. No.: 8219-000005 

44/68 



PROCEDURE CalculateDisplayOrigin{ 

rRegions, rDisplayParms, rSession, llnAC, llnTP); 



9D00 



// Extract required values from data structures 

iGenNo = rSession.iGenerationNumber; 

pnAC = rSession.pnAC; 

pnTP =*pnAC.rActivityControl.pnTP; 

sTBTitle=*pnTP.rToolBarParms.sToolBarTitle; 

iHalfShellWidth=*pnTP.rToolBarParms.iHalfShellWidth; 

iNumRegions =*pnTP.rToolBarParms.iNumRegions; 

iHalfShellHeigtit=rRegions.aVarParms[iNumRegions].iHalfStiellHeight; 
iTitleBarHeight = rRegions.rFixedParms.iTitleBarHeight; 



9D02 



// Determine coordinates of top-left corner of shell 

// NOTE: Axis origin translated to center of central area at 9A02 

cTLShell.X = -iHalfShellWidtti; 

cTLShell.Y = +iHalfShellHeight; 

*pnTP.rToolBarParms.cTLShell = cTLShell; 



9D04 



// Determine coordinates of top-left corner for display window 
cTLDisplayWindow.X = -cTLShell.X; 
IF(pTBTitle = null) 

cTLDisplay.Y= cTLShell.Y+((iGenerationNo-1 )*iTitleBarHeight; 
ELSE 

cTLDisplay.Y= ITitleBar + 

cTLShell.Y+{{iGenerationNo-1)*iTitleBarHeight; 

ENDJF; 

*pnTP.rToolBarParms.cTLDisplay = cTLDIsplay; 



9D06 



( RETURN ") 
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PROCEDURE GenerateShell( 

rRegions, aApexParms, rSessionParms, llnAC, llnTP); 



9E00 



cirTitleBar = rRegions.rFixedParms.clrTitleBarFill; 

cIrActive =rRegions.rFixedParms.clrActiveRegionFill; 

clrlnctive =rRegionsTFixedParms.clrlnactiveRegionFill; 

iLineWidth =rRegions,rFixedParms.iRegionLineWidth; 

iTitleBarHeight =rRegions.rFixedParms.iTitleBarHeight; 

iLabelHeight = rRegions.rFixedParms.iTitleBarLabelHeight; 

iHalfRegions = aRegions.aVarParms[iNumRegions].rVariables.iHalfRegions; 

iHalfShelIHeight=aRegions.aVarParms[iNumRegions]jVariablesJHalfSheliHeight); 



9E102 



pnAC = rSessionParms.pnAC; 

pnNextAC = rSessionParms.pnInitialAC; 
iGenerationNo = rSessionParms.iGenerationNo; 
handleTBWindow = rSessionParms.handleTBWindow; 
pnTP =*pnAC.rActivityControLpnTP; 
iNumRegions =*pnTP.rToolBarParmsJNumRegions; 
iHalfShellWidth =*pnTP.rToolBarParms.iHalfShellWidth; 
iNumTargetGroups=*pnTP.rTGolBarParms.iNumTargetGroups; 



7 As required, generate backward cascade 

DO iCurrGen = 1 TO (iGenerationNo -1) BY 1 



pnCurrTP =''pnNextAC.rActivityControl.pniF; 
sToolBarLabel=*pnParentTP.rTooiBarParms.sToolBarLabel; 
pnNextAC =*pnNextAC.pChild: 



// Determine top-left corner of cascade for current generation 
// NOTE: Origin translated to center central area by 9A02 

cTL.X= -(iHalfShellWidth.X - ((iGenerationNo-iCurrGen)*iTitleBarHeight)); 
cTL.Y= +(iHalfShellHeight.Y + ((iGenerationNo-iCurrGen)+1)*iTitleBarHeight)); 



9E104 



9E106 



9E108 



// Generate cascade display and print titlebar label 
handleTBWindow = rSessionParms.handleTBWindow; 
CREATE(HANDLE=handleTBWindow, IDEN=-(20+iGurrLevel), // Ancestor shell 
LINEWIDTH=iLineWidth, LINECOLOR=clrBlack, FILL=clrLightGray, 
PEN_TO=(cTL.X, (cTL.Y - iToolBarHeight)), 
RECTANGLE={HEIGHT=2*iHalfShellHeight,WIDTH=2*iHalfShellWidth); 

CREATE(HANDLE=handleTBWindow, 1DEN=-(1 0+iCurrLevel),//Ancestor TitleBar 
LINEWlDTH=iLineWidth, LINECOLOR=clrBlack, FILL=clrTitleBar, 
PEN_TO=(cTL.X, cTL,Y), 

RECTANGLE={HEIGHT=iTitleBarHeight, WIDTH =(2*iHalfShellWidth)); 

PRINT(HANDLE=handleTBWindow, // TitleBar (parent) label 

TEXT= sToolBarLabei, FONTSIZE=iLabelHeight, COLOR=clrWhite, 
LOCATION=(cTL.X+iTargetGap,cTLY-(iTitleBarHeight+iTargetGap)); 



9E110 



END DO 
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// Display titleBar for current display 

sToolBarLabel=*pnParentTP.rToolBarParms.sToolBarLabel; 

cTL.X=-iHalfShellWidth; 

CTL.Y =+iHalfShellHeight + iTitleBarHeight; 

CREATE(HANDLE=handl6TBWinclow, IDEN= 0, 

LINEWlDTH=iLineWidth, LINECOLOR=clrBlack, FILL= cIrTltleBar, 

PEN_TO=(cTL.X, cTL.Y), 

RECTANGLE={HEIGHT=iTitleBarHeight,WIDTH=(2*iHalfShellWidth)); 
PRINT(HANDLE=handleTBWindow, 

TEXT=*pToolBarLabel, FONT_SIZE=iLabelHeight, COLOR=clrWhite, 

LOCATION={cTL.X+iTargetGap,cTL.Y-(iTitlebarHeight+iTargetGap)); 



9E202 



DO ICurrRegion = 1 TO iHalfRegions BY 1 



9E204 



WITH aApexParmspNumRegions]. 

aRegionApexes[ICurrRegion].rNearApexes 
CREATE(HANDLE=handleTBWindow, IDEN= ICurrRegion, 
LINEWIDTH=ILineWidth, LINECOLOR=clrBlack, FILL= cIrActive, 
PEN_TO(0, 0), 

L1NE_T0( cApex_1 .X, cApex_1 .Y), 
LINE_TO(-iHalfShellWidth, cApex_1 .Y), 
LlNE_TO(-iHalfShellWidth cApex_2.Y), 
LINE_TO( cApex_2.X, cApex_2.Y), CLOSE); 
END WITH; 



END DO 



9E206 



DO ICurrRegion = iHalfRegions + 1 TO INumRegions BY 1 



IF(iCurrRegion <= INumlargetGroups) 
cIrFill = cIrActlve; 
ELSE 

cIrFill = cirlnactive; 
ENDJF; 



WITH aApexParmspNumRegions]. 

aRegionApexes[iCurrRegion].rNearApexes 
CREATE(HANDLE=handleTBWindow, IDEN= ICurrRegion, 
LINEWIDTH=iLineWidth, LINECOLOR=clrBlack, FILL=clrFIII, 
PEN_TO(0, 0), 

UNE_TO( cApex_1 .X, cApex_1 . Y), 
LINE_TO(+iHalfShellWidth, cApex_1 .Y), 
LINE_TO(+IHalfShellWldth cApex_2.Y), 
L1NE_T0( cApex_2.X, cApex_2.Y). CLOSE); 
END WITH; 



1 




END DO 





(return) 
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PROCEDURE GenerateCentralArea(rCentralArea, rSessionParms, llnAC, llnTP); 



9F00 



// Acquire parameters defining central area 

IGenerationNo = rSessionParms.iGenerationNo; 

iNumFuncs = rCentralArea.rFixedParms.iNumFuncs; 

cIrFill =rCentralArea.rFixedParms.GlrStandardCenterFlli; 

iHalfMenuWidth = rCentralArea.rFlxedParms.lHalfMenuWidth; 

iHalfDoneWidth = rCentralArea.rFixedParms.iHalfDoneWidth; 

iHalfGen_XWidth= rCentralArea.rFixedParms.lHalfGen^XWidth; 

iLineWidth =rCentralArea.rFixedParms.iGentralAreaLineWidth; 

iHalfLabelHeight= rGentralArea.rFixedParms.iCentralAreaLabelHeight/2; 

ilconGap = rCentralArea.rFixedParms.ilconGap; 

iRadius = rCentralArea.rFixedParms.iRadius; 

pnAC = rSessionParms.pnTC; 

pnTP = *pnAC.rActivityControl.pnTP; 

IF(*pnTP.rToolbarParms.bDoneButton) cirDone= clrBlack; 

ELSE clrDone= clrGray; 

ENDJF; 



9F102 




GOTO 
Fiq9F3 



CASE{iCjeneratlonNo) 
1: CREATE(HANDLE=handleTBWindow, // No Functions, 1 generation display 

IDEN=-3, LINEWIDTH=iLineWidtli. LlNECOLOR=cirBlack, FILL=clrFill, 

PEN_TO( +0, +iRadius), ARC_TO((+0, -iRadius), {+0,+0)), CLOSE); 
PRINT(HANDLE=handleTBWindow, TEXT="Menu", COLOR=cirBlack, 

L0CATI0N={+((iRadius/2)-IHalfMenuWidth).iHalfLabelHeight); 
CREATE(HANDLE=handleTBWindow, 

IDEN=-4, LINEWIDTH=iLineWidth, LINECOLOR=cirBlack, FILL=clrFill. 

PEN_TO( +0, -iRadius), ARC_TO((+0, +iRadius), (+0,+0), CLOSE); 
PRINT(HANDLE=handleTBWindow. TEXT="Done", FONTSIZE=iLabelHeight, 

COLOR=clrBlack, L0CATI0N=(-((iRadius/2)+IHalfDGneWidth), iHalfLabelHeight); 

2: cL1 .X = iRadius/6; // No Functions, 2 generation display 

cLi.Y = iRadius*SQR00T(1 -SQ(1/6))); 

CREATE(HANDLE=handleTBWindow, ^ 
IDEN-3, LINEWIDTH=iLineWidth, LINECOLOR=clrBlack, FILL=clrFill, 
PEN_T0{+cL1.X,+cLI.Y), ARC_T0((+cL1.X, -cLI.Y), (+0,+0)), CLOSE); 

PRINT(HANDLE=handleTBWindow, TEXT="IVlenu", COLOR=clrBlack, 
L0CATI0N=(+{((cL1.X+iRadius)/2)-iHalfMenuWidth),iHalfLabelHeight); 

CREATE(HANDLE=handleTBWindow, 
IDEN=-4. LINEWIDTH=iLineWidth, LINECOLOR=clrBlack, FILL=clrFill, 
PEN_TO( -cL1 .X, -cLI.Y), ARC_T0((-cL1 .X, +cL1 .Y), (0, 0), CLOSE); 

PRlNT(HANDLE=handleTBWindow, TEXT="Done", FONTSlZE=iLabelHeight, 
COLOR=clrBlack, L0CATI0N=(-(((cL1.X+iRadius)/2)+iHalExitWidth),iHalfLabelHeight 
CREATE(HANDLE=handleTBWlndow, 

1DEN=-1, LINEWIDTH=iLineWidth, LINECOLOR=clrBlack, FILL=clrFill, 
PEN_TO( -cL1 .X, +cL1 .Y), ARC_T0((+cL1 .X, +cL1 .Y), (0, 0)), 
LINE_T0(+cL1 .X, -cL1 .Y), ARC_T0((-cL1 .X, -cL1 .Y), (0, 0)), CLOSE); 

PRINT(HANDLE=handleTBWindow, TEXT="Gen 1", FONTSIZE=ILabelHeight, 
COLOR=clrBlack, LOCATION=HHalfGen_XWIdth, IHalfLabelHeight); 



9F104 



9F106 



GO TO 
Fig 9F2 

A 
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9F202 



3: CL2.X = iRadius/2; // No Functions, 3 generation display 

CL2.Y = iRadius*SQR00T(1-SQ(1/2)); 

CREATE(HANDLE=handleTBWindow, 

IDEN=-3, LINEWlDTH=iUneWidth, LINECOLOR=clrBlack, FILL=clrFill, 

PEN_TO( +CL2.X, +CL2.Y), 

ARC_T0((+cL2.X, -cL2.Y), (+0,+0)), CLOSE); 
PRINT(HANDLE=handleTBWindow, 

TEXT="Menu", FONTSIZE=iLabelHeight, COLOR=clrBlacl<, 

LOCATiON=(+(((cL2.X+iRadius)/2)-iHalfMenuWidth),iHalfLabelHeight); 

CREATE(HANDLE=handleTBWindow, 

IDEN=-4, LINEWIDTH=iLineWidth, LlNECOLOR=clrBlack, FILL=clrFiii, 

PEN_TO( -CL2.X, -CL2.Y), 

ARC_T0((-cL2.X. +cL2.Y), (0. 0), CLOSE); 
PRINT(HANDLE=handleTBWindow, 

TEXT="Done", FONTSiZE=iLabelHeight, COLOR=c!rDone, 

LOCATION=(-{((cL2.X+iRadius)/2)+IHalfDoneWidth),iHalfLabelHeight); 

CREATE(HANDLE=handleTBWindow, 

IDEN=-1, LINEWlDTH=iLineWidth, LINECOLOR=clrBlaci<, FILL=clrFiil, 

PEN_TO( 0, +iRadius), 

ARC_T0({+cL2.X, +cL2.Y), {0, 0)), 

LINE_T0(+cL2.X, -cL2.Y), 

ARC_TO(( 0, -IRadius), (0, 0)), CLOSE); 
PRINT(HANDLE=handleTBWindow, 

TEXT="Gen 1", FONTSIZE=iLabeiHeight, COLOR=cirBlacl<, 

LOCATION=(+(cL2.X/2 - iHalfGen_XWidth), iHalfLabelHeight); 

CREATE(HANDLE=handleTBWindow, 

IDEN=-2, LINEWIDTH=iLineWidth, LINECOLOR=clrBlack, FILL=clrFill, 

PEN_TO{ 0, -iRadius), 

ARC_T0{(-cL2.X, -cL2.Y), (0, 0)), 

LINE_T0(-cL2.X, +cL2.Y), 

ARC_TO(( 0 ,+iRadlus), (0, 0)), CLOSE); 
PRINT(HANDLE=handieTBWindow, 

TEXT="Gen 2", FONTSIZE=iLabelHeigiit, COLOR=clrBlack, 

LOCATION=(-{cL2.X/2 + IHalfGen.XWidth), IHalfLabelHeight); 



(RETURN) 
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ilconWidth = rCentralArea.rFixedParms.iCentralArealconHeight; 
iHalflconWidth={ilconWidth)/2; 

ilconDisplace=rCentralArea.rFixedParms.iHighlconDisplace; 



plcon_1 = rCentralArea.aFuncs 
plcon_2 = rCentralArea.aFuncs 
plcon_3 = rCentralArea.aFuncs 
plcon_4 = rCentralArea.aFuncs 
CL1.Y = iHalfUneWidth + iHalf 
cL1 .X = SQROOT(SQ{iRadius) - SQ(cL1 .Y)); 
cL2.X =iRadius/6; cL3.X =IRadius/2; 



3].rLocators.plcon; 
4].rLocators.plcon; 
5].rLocators.plcon; 
'Sj.rLocators.plcon; 
.abelHeight + llconGap; 




iNumFuncs = 2 
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CREATE{HANDLE=handleTBWIndow, // Two central area functions 

IDEN=-5, LINEWIDTH=iUneWidth, LINECOLOR=clrBlack, FILL=clrFill. 

PEN_T0(-cL1 .X, +cL1 .Y), ARC_T0(+cL1 .X, +cL1 .Y), (+0,+0)), CLOSE); 

PAINT{HANDLE=handieTBWindow, 

ICON=*plcon_1 , L0CAT10N=(-iHalf lconWidth,+(cL1 .Y+ilconDisplace)); 

CREATE(HANDLE=handleTBWindow, 
IDEN=-6, LiNEWlDTH=iLineWidth, LINECOLOR=clrBlack, FILL=clrFilI, 
PEN_T0(+cL1 .X, -cL1 .Y), ARC_T0{-cL1 .X, -cL1 .Y), (+0,+0), CLOSE); 

PAINT(HANDLE=handleTBWindow, 
lCON=*plcon_2, LOCATION=(-IHalflconWidth, -(cL1.Y+ilconGap)); 



9F306 



CREATE(HANDLE=handleTBWindow, // Four central area functions 

lDEN=-5, LINEWIDTH=iLineWidth, LINECOLOR=clrBlack, FILL=clrFill, 
PEN_T0(-cL1.X,+cL1.Y), ARC_TO(0, IRadius), (+0,+0)), LINE_TO(0, +cL1.Y), CLOSE); 

PAINT(HANDLE=handieTBWindow, 
ICON=*plcon_1 ), LOCATION=(-iHighDisplace, +(cL1 .Y+llconDisplace)); 

CREATE(HANDLE=handleTBWindow, 

lDEN=-7, LINEWlDTH=iLineWidth, LINECOLOR=clrBiack, FILL=clrFill, 

PEN_TO(0, +iRadius), ARC_T0(+cL1 .X, +cL1 .Y), (+0,+0)), LINE_TO(0,+cL1 .Y), CLOSE); 
PAINT{HANDLE=handleTBWindow, 

ICON=*plcon_3), LOCATION=(+ilconGap, +(cL1 .Y+ilconDisplace)); 

CREATE(HANDLE=handleTBWindow, 
IDEN=-6, LINEWIDTH=iLineWidth, LINECOLOR=clrBlack, FILL=clrFill, 
PEN_T0(+cL1 .X, -cL1 .Y), ARC_TO((0, -IRadius), (+0, +0)), LINE_TO(0, -cL1 .Y), CLOSE); 

PAINT(HANDLE=handleTBWindow, 
ICON=*plcon_2, LOCATION=(-iHighDisplace, -(cL1 .Y+ilconGap)); 

CREATE{HANDLE=handleTBWindow, 
IDEN=-8, LINEWIDTH=iLineWidth, LlNECOLOR=clrBlack, FILL=clrFill, 
PEN_TO(0, -Radius), ARC_T0{(-cL1 .X, -cL1.Y), (0, 0)), LINE_TO(0.-cL1.Y). CLOSE); 

PAINT(HANDLE=handleTBWindow, 
ICON=*plcon_4, LOCATION=(+ilconGap, -(cLI. Y+ilconGap)); 
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CASE(iGenerationNo) 



// Central Area with functions 



// Display with no ancestor controls 
1 :CREATE(HANDLE=handleTBWindow, 

IDEN=-3, LINEWIDTH=iLineWidth, LINECOLOR=cIrBlack, FILL=clrFIII. 

PEN_TO( +cL1 .X, +cL1 Y), ARC_T0({+cL1 .X, -cL1 .Y), (+0,+0)), 

LINE_TO(+0, -CL1.Y), LINE_TO(+0, +cL1.Y), CLOSE); 
PRlNT(HANDLE=handleTBWindow, 

TEXT="Menu", FONTSIZE=iLabelHeight, COLOR=clrBlack, 

L0CATI0N=(+((iRadius/2)-iHalfMenuWidth), iHalfLabelHeight); 

CREATE(HANDLE=handleTBWindow, 

IDEN=-4, LINEWIDTH=iLineWidth, LINECOLOR=clrBlack, FILL=clrFill, 
PEN_TO( -cL1 .X, -cL1 ,Y), ARC_T0{{-cL1 .X, +cL1 .Y), (+0,+0)), 
L1NE_TO(+0, +CL1.Y), LINE_TO( +0, -cL1.Y), CLOSE); 

PRlNT(HANDLE=handleTBWindow, 

TEXT="Done", FONTSIZE=iLabelHeight, COLOR=clrBlack, 
LOCATION=(-((iRadius/2)+iHalfDoneWidth), iHalfLabelHeight); 

// Display with one ancestor control 

2:CREATE(HANDLE=handleTBWindow, 

IDEN-3, LINEWIDTH=iLineWidth, LlNECOLOR=clrBlack, FILL=clrFill, 
PEN_TO( +cL1 .X, +cL1 .Y), ARC_T0((+cL1 .X, -cL1 .Y), (+0,+0)), 
LINE_T0(+cL2.X, -cLI.Y), LlNE_T0(+cL2.X, +cL1.Y), CLOSE); 
PRINT(HANDLE=handleTBWindow, 

TEXT="Menu", FONTSIZE=iLabelHeight, COLOR=clrBlack, 
LOCATION=(+({(cL2.X+iRadius)/2)-iHalfMenuWidth),iHalfLabelHeight); 

CREATE(HANDLE=handleTBWindow, 

IDEN=-4, LINEWIDTH=iLineWidth, LlNECOLOR=clrBlack, FILL=clrFill, 
PEN_T0(-cL1.X, -cLI.Y), ARC_T0((-cL1 .X, +cL1.Y), (0, 0)), 
LINE_T0(-cL2.X, +cL1.Y), LINE_T0(-cL2.X, -cL1.Y), CLOSE); 

PRINT(HANDLE=handleTBWindow, 

TEXT="Done", FONTSIZE=iLabeiHeight, COLOR=clrBlack, 
LOCATION=(-(((cL2.X+iRadius)/2)+iHalfDoneWidth),iHalfLabelHeight); 

CREATE(HANDLE=handleTBWindow, 

IDEN=-1, LINEWlDTH=iUneWidth, LlNECOLOR=clrBlack, FILL=clrFill, 

PEN_T0(-cL2.X, +CL1.Y), LINE_T0(+cL2.X, +cL1.Y), LINE_T0(+cL2.X, -cLlY), 

LINE_T0(-cL2.X,-cL1.Y), CLOSE); 
PRINT(HANDLE=handleTBWindow, 

TEXT="Gen 1", FONTSIZE=iLabelHeight, COLOR=clrBlack, 

LOCATION=(-iHalfGen_XWidth), iHalfLabelHeight); 



9F402 



9F404 



GOTO 

Fig 9F5 

D 
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// Display with two ancestor controls 
3:CREATE{HANDLE=liandleTBWindow, 

IDEN=-3, LINEWIDTH=iLineWidth, LINECOLOR=clrBlack, FILL=clrFill, 

PEN_TO( +CL1.X, +CL1.Y), 

ARC_T0({+cL1.X, -CL1.Y), {+0,+0)). 

LINE_T0(+cL3.X,-cL1,Y), 

LINE_T0(+cL3.X,+cL1.Y), CLOSE); 

PRlNT(HANDLE=handleTBWindow, 

TEXT="Menu", FONTSIZE=iLabelHelght, COLOR=clrBlack, 

LOCATION=(+(({iRadius+cL3)/2)-iHalfMenuWidth),+iHalfLabeiHeight); 

CREATE(HANDLE=handleTBWindow, 

lDEN=-4, LlNEWlDTH=iLineWidth, LINECOLOR=clrBlacl<, FILL=clrFill, 

PEN_T0(-cL1.X, -cLlY), 

ARC_T0((-cL1.X, +CL1.Y), (0, 0), 

LINE_T0(-cL3.X, +cL1.Y), 

LINE_T0(-cL3.X, -cL1 .Y), CLOSE); 

PRINT{HANDLE=handleTBWindow. 

TEXT="Done", FONTSIZE=iLabelHeight, COLOR=clrBlack, 

LOCATION=(-(((iRadius+cL3)/2)+iHalfDoneWidth), +iHalfLabelHeight); 

CREATE(HANDLE=handleTBWindow, 

IDEN=-1, LINEWIDTH=iLineWidth, LlNECOLOR=clrBIack, FILL=clrFill, 

PEN_T0(-cL3.X,+cL1.Y), 

LINE_TO(+0, +CL1.Y), 

LlNE_TO(+0,-cL1.Y), 

LINE_T0(-cL3.X,-cL1.Y), CLOSE); 

PRINT(HANDLE=handleTBWindow, 

TEXT="Gen 1", FONTSIZE=iLabelHeight, COLOR=clrBlack, 

LOCATiON=(-((cL3/2)+iHaifGen_XWidth).+iHaifLabelHeight); 

CREATE(HANDLE=handleTBWindow, 

IDEN=-2, LINEWIDTH=ILineWidth, LINECOLOR=clrBlack, FILL=clrFill, 

PEN_TO( +0, +CL1.Y), 

LINE_T0(+cL3.X, +cL1.Y), 

UNE_T0(+cL3.X,-cL1.Y), 

LINE_TO{+0,-cL1.Y), CLOSE); 

PRINT(HANDLE=handleTBWindow, 

TEXT="Gen 2", FONTSIZE=iLabelHeight, COLOR=clrBlack, 

LOCATION=(+((cL3/2)-iHalfGen_XWidth), +iHalfLabelHeight); 

END_CASE; 

I 

( return) 
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PROCEDURE GenerateTargets( 
rRegions, aApexParms, rSessionParms, llnAC, llnTP, llnGP, llnlS); 



9G00 



// Acquire Fixed Region parameters 
iAspectRatio = rRegions.rFixedParms 
iHalflconWidth = rRegions.rFixedParms 
iBaseHalfNarrow = rRegions.rFixedParms 
iBaseHalfWide = rRegions.rFixedParms 
iBaselnterTarget = rRegions.rFixedParms 
ILabelDisplace = rRegions.rFixedParms 
ilconDisplace = rRegions.rFixedParms 
iHighPlsplace = rRegions.rFixedParms 



iAspectRatio; 

JShelltconHeighy2; 

.IHalfNarrowSide; 

iHalfWideSide; 

ilnterTargetDistance; 

iLowLabelDisplace^Y; 

.iLowlconDisplace^Y; 

iHighDisplace_Y; 
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//Acquire Variable Region parameters 

pnAC = rSessionParms.pnAC; 

pnTP = *pnAC.rActivityControl.pnTP; 

pnGP = *pnAC.rActivityControl.pnGP; 

iNumRegions =*pnTP.rToolBarParms.iNumReglons; 

iNumTargetGroups=*pnTP.rToolBarParms.iNumTargetGroups; 

WITH rRegions.aVarParms[iNumRegions].Variables 

iTargetDisplace= iTargetDisplace^Y; iHaIfRegion= iHalfRegions; 

iLHR= iLeftHorizontalRegion; iRHR= iRightHorizontalRegion; 

iBaseX = iBase^X; iBaseMidLine= iMidLine; 

iQRegionJ= aQRegion[1]; iQRegion_2= aQRegion[2]; 

iQRegion_3= aQRegion[3]; iQRe9ion_4= aQRegion[4]; 

END^WITH; 



9G104 
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DO iCurrRegion = 1 TO iNumTargetGroups BY 1 



// Use near apexes of current region to determine apexes 
WITH aApexParms[iNumRegions]. 

aRegionApexes[iCurrRegion].rNearApexes 

iNumlnnerTargets = iNumlnteriorTargets; 

c1.Y=cApexJ.Y; c2.Y= cApex_2.Y; 

c3.Y=c2.Y; c4.Y=c1.Y; 

c1 .X= cApex^l .X; c2.X cApex^2.X; 
END WITH: 



9G108 



// Set locational values for each display half: 
IF(iCurrRegion > iHalfRegion) 

iHalfNarrow = +iBaseHalfNarrow; iHalfWide= +iBaseHalfWide; 

ilnterTargetDistance= +iBaselnterTarget; 

iCurrBase_X = +iBaseX; 

iGurrMidLine= +iBaseMidLine; 

ELSE 

iHalfNarrow = -iBaseHalfNarrow; iHalfWide= -IBaseHalfWide; 

ilnterTargetDistance= -iBaselnterTargetDlstance; 

iCurrBase^X = -iBaseX; 

iCurrMidLine= -iBaseMidLine; 

ENDJF; 



9G110 
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// Determine Y^coords of target location as displacement 
// from region's near apexes. Determine cycle number 
IF(c2.Y > 0) 
iSign„Y = +1; 

cT1 .Y = c1 .Y + ITargetDisplace; 
cT4.Y = cT1.Y; 

cT2.Y = c2.Y - iTargetDisplace; 
cT3.Y = cT2.Y: 
lF(c1.X>0) 

iCurrCycle = iQRegion.3 - iCurrRegion; 
ELSE 

iCurrCycle = IQRegion J - iCurrRegion; 
ENDJF; 
ELSE 

iSign^Y = -1; 

cT1 .Y = c1 .Y - iTargetDisplace; 
cT4.Y = cT1,Y; 

cT2.Y = c2.Y + iTargetDisplace; 

cT3.Y = cT2.Y 

IF(c1.X>0) 

iCurrCycle = iCurrRegion - iQRegion^4; 
ELSE 

iCurrCycle = iCurrRegion - (QRegion_2; 
ENDJF; 
ENDJF; 



9G202 



// End points for target group 

iStartTarget= *pnGP.aTargetGroups[iCurrRegion].rGroupParms.iGroupStart; 
iEndTarget= *pnGP.aTargetGroupsliCurrRegion].rGroupParms.iGroupEnd; 




9G204 
9G206 



iStart= iEndTarget; 
iEnd = iStartTarget; 
ilncrement=-1 ; 



iStart= iStartTarget; 
IEnd = iEndTarget; 
ilncrement=+1; 
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iTempMidLine = iMidPoint; 
cT1.X = cT2.X = 0; 
cT3.X = cT4.X = c1.X: 



iTempMidLine= iMidPoint/2; 
cT1.X = cT2.X = 0; 
cT3.X = cT4.X = iMidPoint: 



iTempMidLine= c1 .X + iMldPoint/2; 
cT1.X = cT2.X= iMidPoint; 
cT3.X = cT4.X = c1.X; 



// Determine TL-corner of icon for current target 
cTLIcon.X = iTempMidline - iHalflconWidtli; 
IF(iSign_Y = +1) 

cTLIcon.Y= cT1.Y + ilconDisplace; 
ELSE 

cTLIcon.Y= cT2.Y + ilconDisplace; 
ENDJF; 



9G310 



// Display Current Target 
DispiayTargel( 

iCun-Region, iStart, ITempMidLine, TRUE, 
cT1, cT2, cT3, cT4, 
cTLIcon, null, rRegions, rSessionParms, llnlS); 



9G312 
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// GENERATE-DISPLAY BASE & EXTERIOR RECTANGULAR TARGETS 



iTargetCount = 0; 



DO iCurrTarget = iStart TO iEnd BY ilncrement 



iTargetCount = iTargetCount + 1; 



9G402 



9G406 



rVes- 



iTargetCount = 1 



// Base target 
cT1.X=c1.X; 
cT2.X= c2.X; 

cT3.X= iCurrMidLine+iHalfNarrow; 
cT4.X=cTe.X 



// Exterior targets 
iCurrMidLine = 

ICurrMidline + iinterTargetDistance; 
cT1.X= iCurrMidLine-iHalfNarrow; 
cT2.X=cT1.X 

cT3.X= iCurrMidLine+iHalfNarrow; 
cT4.X= CT3.X 



// Determine TL-comer of icon for current target 
cTLIcon.X = iCurrl\^idline - iHalflconWidth; 
IF(iSign_Y = +1) 

cTLIcon,Y= cTI.Y + ilconDisplace; 
ELSE 

cTLIcon.Y= cT2.Y + ilconDisplace; 
ENDJF; 

i 
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// Display Current Target 
DisplayTarget( 

iCurrRegion, ICurrTarget, iCurrMidLine, FALSE, 
cT1,cT2, cT3,cT4, 

cTLIcon, null, rRegions, rSessionParms, llnIS); 



9G410 



END_DO(Display square targets) 



GOTO 
Fig 9G7 
G 
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// GENERATE-DISPLAY FOR VARYING WIDTH RECTANGULAR TARGETS 
// OF HORIZONTAL REGIONS 




DO iCurrTarget=IStart TO iEnd BY ilncrement 



// Set parameters for size and location of target: 

iTargetCount = iTargetCount + 1; 

IF(ODD(iTargetCount)) 

iHalfBottom = IHalfNarrow; 

ELSE 

iHalfBottom = iHalfWide; 
ENDJF; 



9G502 
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// Determine coords of current target origin 
//within horizontal region. 
cT1.X = iCurrMidline - iHalfBottom; 
cT2.X = cT1.X; 

cT3.X = iCurrl\/1idline + iHalfBottom; 
cT4.X = cT3.X; 



9G506 



// Determine top-left corner of Icon/Label 
cTLIcon.X = iCurrMidline - iHalflconWidth; 
cTLIcon.Y = cTI.Y + iHighOispiace; 
cTLLabel.Y= cT1.Y + iLabelDisplace; 



9G508 



// Display Current Target 
DisplayTarget{ 

iCun'Region, iCurrTarget, iCurrMldLine, FALSE, 
cT1,cT2,cT3,cT4, 

cTLicon, cTLLabel.Y, rRegions, rSessionParms, llniS); 



// Increment to locate next target 

ICurrMidLine = ICurrMidLine + ilnterTargetDistance; 



9G510 



9G512 



END_DO(Horizonta! Region targets) 



GOTO 
Fig 9G7 
G 
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// GENERATE-DISPLAY NON-RECTANGULAR INTERIOR TARGET 




cPrior1.X=0; 



Fig 9G7 
F 



// Applies to interior targets of shells having => 8 regions. 
// Set coordinates of Apex #3 to Apex #1 coordinates of the 
// adjacent region within the quadrant. 

IF(iSign_Y = +1) 

cPriorlX = aApexPamis[iNumRegions]. 
aRegionParms[iCurrRegion+1].rNearApexes,cApexJ.X; 
ELSE 

cPriorl .X = aApexParms[iNumRegions]. 
aRegionParms[iCurrRegion-1l.rNearApexes.cApex_1.X; 
END IF; 



9G602 



// Determine X-coordinates of inner-most target apexes 
cT1,X = 0; 
cT2.X = 0; 
cT3.X = cPrior1.X; 
cT4.X = c1.X; 
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// Determine coords of icon/label origins for interior target 
iTempMidLine = cT4.X/2; 
cTLIcon.X = ITempMidLine - IHalflconWIdth; 
IF((Sign_Y = +1)) 

cTLLabel.Y = cT1.Y + IHighDisplace; 
cTLIcon.Y =GT1.Y + ilconDisplace; 
ELSE 

cTLLabel.Y = cT2.Y + iLabelDisplace; 
cTLIcon.Y = cT2.Y + iHighDisplace; 
ENDJF; 



90606 



// Display Current Target 
DisplayTarget( 

iCurrRegion, iStart, ITempMidLine, TRUE, 
cT1,cT2,cT3,cT4. 

cTLlcon, cTLLabel.Y, rReglons, rSessionParms, llnIS); 



9G608 



// Increment iStart to point to base icon 
iStart = iStart + ilncrement; 
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// GENERATE-DISPLAY BASE & EXTERIOR NON-RECTANGULAR TARGETS 
iTargetCount = 0; 



DO iCurrTarget = iStart TO iEnd BY ilncrement 



// Determine top & bottom widths for Exterior Targets of iCuaRegion 
iTargetCount= iTargetCount+ 1; 
lF(ODD(iCurrCycle + iTargetCount)) 
iHalfTop= iHalfWide; iHalfBottom= IHalfNarrow; 
ELSE 

iHain"op= iHalfNarrow; iHalfBottom= IHalfWide; 
ENDJF; 
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// X-coords of base target 
cjl X = c1X' 
IF(cPrior1.X = 0) cT2.X = c2.X; 
ELSEcT2.X = cPrior1.X; 
ENDJF; 

cT3.X=iCurrMidLine+iHalfTop; 
cT4.X=iCun-MidLine+iHalfBottom; 



// X-Coords of exterior targets 
iCurrMidLine = 

iCurrMidline + ilnterTargetDistance; 
cT1 .X= ICurrMidLine-iHalfBottom; 
cT2.X= iCurrMidLine-iHalfTop; 
cT3.X= iCurrMidLine+iHalfTop; 
cT4.X= iCurrMidLine+iHalfBottom; 



// Determine coords of icon/label origins ot current target 
cTLIcon.X = iCurrMidline - iHalflcon; 
IF(ODD(iCun-Cycle + iTargetCount)) 
IF(iSign_Y = +1) 

cTLLabel.Y= cT1 .Y + IHighOisplace; cTLIcon.Y = cT1 .Y + ilconDisplace; 
ELSE 

cTLLabel.Y= cT2.Y + iLabelDisplace; cTLIcon.Y = cT2.Y + iHighDisplace; 
ENDJF; 
ELSE 

IF(iSign_Y = +1) 

cTLLabel.Y= cT1 .Y + iLabelDisplace; cTLIcon.Y = cT1 .Y + iHighDisplace; 
ELSE 

cTLLabel.Y= cT2.Y + iHighDisplace; cTLIcon.Y = cT2.Y + IlconDisplace; 
ENDJF; 

ENDJF; 



// Display Cun-ent Target 

DisplayTarget(iCurrRegion, iCurrTarget, ICurrMidLine, FALSE, 
cT1, cT2, cT3, cT4, cTLlcon, cTLLabel.Y, rRegions, rSessionParms, llnIS); 



9G702 




9G704 



9G708 



9G710 



9G712 





END_DO(over targets of current target group); 











X 


END_DO(over regions of the display); 


} 



(return) 
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PROCEDURE DisplayTarget(iCurrRegion, iCurrTarget, iCurrMidLine, bInnerTarget, 
cT1, cT2, cT3, cT4, cTLIcon, cTLLabei.Y, rRegions, rSessionParms, llnIS); 



SHOO 



// Acquire parameters and assign access indentification 
pnAC = rSessionParms.pnAC; 
pniS = *pnAC.rActivityControl.pnlS; 
ITargetGap = rRegions.rFixedParms.iTargetGap; 
iMaxLabelLength = rRegions.rFlxedParms.iMaxLabelLength; 
iTargetLineWidth= rRegions.rFlxedParms.iTargetLineWidth; 
iTargetType= *pnlS.alconSet[iCurrTarget].rlconParms.iTargetType; 
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// Assign access indentification 
WITH rRegions.iFixedParms 
CASE(iTargetType) 

1 : cirFiil = cirPrimaryFill; cIrLine = cIrPrimaryLine; 
2: cIrFill = cIrSecondaryFill; cIrLine = cIrSecondaryLine; 
3: cIrFill = cIrStandardTarget; cIrLine = cIrBlack; 
END_CASE; 
END WITH; 



9H04 



// Generate target shape. Designate acquisition naethod 
WITH *pnlS.alconSet[iCurrTarget].rlconParms 

CREATE(HANDLE=handleTBWindow, IDEN= (iCurrTarget + 100), FILL=clrFill, 
LINEWIDTH= iTargetLineWidth, UNECOLOR= cIrLine, 
PEN_TO( cT1 .X, cT1 .Y), LINE_T0(cT2.X, cT2.Y), 

LINE_T0(cT3.X. cTS.Y), LINE_T0(cT4.X, cT4.Y). CLOSE); 
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// Determine X-coord of U-L corner of label then display label 
IF(cTLLLabel.Y<> null) 

sLabel = *pLabel; 

iLabelLength = LENGTH(sLabel); 

IF{iLabelLength > iMaxLabelLength) 

TRUNCATE(right-most characters) UNTIL (LENGTH(sLabel) <= IMaxLabelLength); 
iLabelLength = (LENGTH(sLabel); 
END IF; 

cTLLabel-X = ICurrMidLine - iLabelLength/2; 

// Test whether inner-target extends across Y-axis 
IF(blnnerTarget = TRUE) 

IF(iCurrMidLine > 0 AND cTLLabel.X < 0) cTLLabel= ITargetGap; 
IF(iCurrMidLine < 0 AND (cTLLable.X + iLabelLength > 0)) 

cTLLabel= -(ILabelLength + ITargetGap); ENDJF; 
ENDJF; 

PRINT(HANDLE=handleTBWindow, COLOR=clrBlack, LOCATION=cTLLabel, 

TEXT=sLabel, FONTSIZE=rRegions.rFixedParms.iShellLabelHeight); 
END IF; 



9H08 



//Display icon 

PA NT(HANDLE=handleTBWindow, ICON=*plcon, LOCATION=cTLIcon,); 



9H10 



END_WITH; 



(RETURN) 
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10A00 



PROCEDURE ManageToolBarUse( 
bMoveCursor, sNextAction, iReturn Value, 
rRegions, aApexParms, rCentralArea, 
rSessionParms, llnAC, llnTP, llnGP, llnIS); 



10A102 



iShape = 0; 

pnAC = rSessionParms.pnAC; 

pnTP = *pnAC.rActivityControl.pnTP; 

iNGroups =*pnTP.rToolBarParms,iNumTargetGroups; 

iNTargets=*pnTP.rToolBarParms.iTotalNumTargets; 

rTimeOut = rSessionParms.rTimeOut; 

handleTBWindow = rSessionParms.handleTBWindow; 



JLlOBOO 

"TTimeOut < rTime"I>-Y^^ 




TestCursorMove(handleTBWindow, bMoveCursor, 

sNextAction, rRegions, rCentralArea, 
rSessionParms, llnAC, llnTP, llnGP); 



sNextAction = "Continue"; 

CursorKeyPad(iNumClicks, bMoveCursor, 
sNextAction, iReturnValue, iShape, 
rSessionParnns, llnAC, llnTP, llnIS); 



(return) 



iNumClicks = 1; 
iShape = 

CURSOR_lN_SHAPE(HANDLE=handleTBWindow); 



iNumClicks = 2; 
iShape = 

CURSORJN_SHAPE{HANDLE=handleTBWindow); 



iNumClicks = 1 ; 

iShape = rSessionParms.iCurrHost; 



iNumClicks = 1; 
iShape = -4; 



sNextAction ="Continue"; 
^ 

(return) 



GOTO 
Fig 10A2 

A 
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10D00 



Targets+100>^ 
iShape >= 101 



10E00 



(Shape > iNGroups^ 
10A202 VTlT 



10A204^ No 



10A206 



10A208 



10A210 



-Yes- 



// Target acquired by direct selection 
DirectTargetSelection (i N u mClicks, 

bMoveCursor, sNextAction, iReturnValue, 

iShape, rSessionParms, 

llnAC, llnTP, llnIS); 





Yes- 



Yes-n 



Yes-1 



// Target acquired by remote selection 
RemoteTargetSelection(iNumClicks, 

bMoveCursor, sNextAction, iReturnValue, 

iShape, rSessionParms, 

llnAC. llnGP, llnTP, llnIS); 



// No-action requested 
sNextAction = "Continue" 




// Menu requested 
sNextAction = "Menu"; 



// Ancestor display requested 
iReturnValue= 

MODULO(ABSOLUTE(10,iShape)); 
sNextAction = "Ancestor"; 



// Termination of ToolBar requested 
bMoveCursor =rSessionParms.bMoveCursor; 
sNextAction = "Done"; 



// Central area function selected 
(Return Value= ABS0LUTE(iShape)-4; 
sNextAction = "CentralArea"; 

sNextAction = "Continue"; 



FIGURE 10A2 
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10B00 



10B102 

blnWindow 



PROCEDURE TestCursorMove{handleTBWindow, 
bMoveCursor, sNextAction, rRegions, rCentralArea, 
rSessionParms, llnAC, llnTP, llnGP); 

4r 



10B104 




// Determine if cursor is in the ToolBar Window 
sNextAction = "Continue"; 

blnWindow = CURSORJN_WINDOW(HANDLE=handleTBWindow); 



sNextAction = "Done"; bMoveCursor = FALSE; 



II Determine whether host shape has changed. 
iShape = CURSORJN_SHAPE(HANDLE = handleTBWindow); 
iPriorHost= rSessionParms.iCurrHost; 
iPriorHostGroup = rSessionParms.iCurrHostGroup; 
iCurrHostGroup =null; 



Yes- 



► (return) 



10B106 



10B108 



pnAC = rSessionParms.pnAC; 

pnTP=*pnACiActivityControl.pnTP; pnGP =*pnAC,rActivityControl.pnGP; 
iNGroups = *pnTP.rToolBarParms.iNumTargetGroups; 
iNTargets= *pnTP.rToolBarParms.iTotalNumTargets; 
rSessionParms.iPriorHost= iPriorHosl; rSessionParms.iCurrHost = (Shape; 



Yes. 



iCurrHostGroup = iShape; 



II Determine target group hosting cursor 
[~* ] iTargetNo^ iShape - 100; 

Yes ^ - 



c 



DO iGroup = 1 TO iNGroups BY 1 



WITH *pnGP.aTargetGroups[iGroup].rGroupPanns 

iStart= iGroupStart; iEnd = iGroupEnd; 
END_WITH; 




10B112 



// Set host shape host fill color 

FILL_SHAPE(HANDLE=hand!eTBWindow, IDEN= iShape. 
COLOR=rRegions.rFixedParms.clrHostingFill); 



GOTO 
Fig 10B2 

A ■ 
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10B202 




10B204 



// Return prior target host to appropriate color 
iTargetNo = iPriorHosHOO 
iTargetType= 

*pnlS.alconSet[iTargetNo].rlconParmsJTargetType; 
CASE(iTargetType) 

1 : COLOR^SHAPE(HANDLE=handIeTBWindow, 

IDEN = iPriorHost, FILL = rRegions.rFixedParms.clrPrimaryFill, 
LINE = rRegions.rFixedParms.clrPrimaryLine); 

2: COLOR^SHAPE(HANDLE=handleTBWindow, 

IDEN = iPriorHost, FILL = rRegions.rFixedParms.clrSecondaryFill, 
LINE = rRegions.rFixedParms.clrSecondaryLine); 

3: COLOR_^SHAPE(HANDLE=handleTBWindow, 

IDEN = IPriorHost, FILL = rRegions.rFixedParms.clrStandardColor, 

LINE = rRegions.rFixedParms.clrStandardColor); 
END^CASE; 




10B206 



// Return prior region host to appropriate color 
COLOR_SHAPE(HANDLE=handleTBWindow, 
IDEN = iPriorHost, FILL = rRegions.rFixedParms.clrActiveRegionFill, 
LlNE = GlrBlack); 




Yes- 



No 



10B208 



// Return prior central area host to appropriate color 
COLOR^SHAPE(HANDLE=handleTBWindow, 

IDEN= iPriorHost, FILL=rCentralArea.rFixedParms.clrStandardCenterFill, 
LINE= cIrBlack); 



//Update host Group 

rSessionParms.iPriorHostGroup= iPriorHostGroup; 
rSessionParms.iCurrHostGroup = ICurrHostGroup; 



(return^ 
FIGURE 10B2 



Title: COMPUTER INTERFACE TOOLBAR FOR ACQUIRING MOST FREQUENTLY ACCESSED OPTIONS 

USING SHORT CURSOR TRAVERSES 
Inventor: Stanley W. Driskell 
Atty. Ref. No.: 8219-000005 

64/68 



PROCEDURE CursorKeyPad( 

iNumClicks, bMoveCursor, sNextAction, iReturnValue, iShape, 
rSessionParms, llnAC, llnTP, llnIS); 

>^ 

This invention subsumes the availability of cursor manipulation via the cursor keypad. 
The general approach recommended for keypad manipulation of the cursor for a Spider 
format is disclosed for the Spider Combo Box by patent number 6,239,803. Variations 
of keypad manipulation appropriate for Spider Toolbar manipulation will be apparent to 
the person of normal skills in these arts and will not be reviewed by this implementation. 



10C00 



( RETURN ) 

FIGURE 10C 



PROCEDURE DirectTargetSelection(iNumClicks, 
bMoveCursor, sNextAction, iReturnValue; iShape, 
rSessionParms, llnAC, llnTP, llnIS); 



10D00 

10D02 
10D04 




// Access required values 
pnAC = rSessionParms.pnAC; 
pnTP = *pnAG.rActivityControl.pnTP; 
pnlS = *pnAC.rActivityControl.pnlS; 
iTargetNo= iShape - 100; 

pChildToolBar= *pnlS.alconSet[iTargetNo].rlconParms.pChildToolBar; 
pOtherControl= *pnlS.alconSet[iTargetNo].rlconParms.pOtherControl; 
iMenuTag= *pnlS.alconSet[iTargetNo].rlconParms.iMenuTag; 
*pnTP.rToolBarParms.pSelectedTargetlden = ITargetNo; 



J 




// Sub-Toolbar requested 
sNextAction ='Toolbar"; 

IReturnValue = pChildToolBar; 



Yes 
10D06 



// Sub-Toolbar requested 
sNextAction ="Gontror'; 
IReturnValue = pOtherControl; 



// Leaf menu requested 
sNextAction ="Function"; 
iReturnValue = iMenuTag; 
bMoveCursor = rSessions.bMoveCursor; 



FIGURE 10D 
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PROCEDURE RemoteTargetSe!ection(iNumClicks, 
bMoveCursor, sNextAction, iReturnValue, iShape, 
rSessionParms, llnAC, llnGP, llnTP, llnIS); 



10E00 
10E02 




Yes 



sNextAction = "Continue"; 



// NOTE: Formatting and loading of the rGroupParms record referenced has 
// been performed by procedures at 9B08 and 9B10. It is presumed that persons 
// with access to appropriate source code perform this activity. 
// Determine the implied target 
pnAC = rSessionParms.pnAC; 
pnGP = *pnAC.rActlvityControl.pnGP; 
IF(iNumClicks = 1) 

iTargetNo= *pnGP.aTargetGroups[iShape].rGroupParms.iPrimaryTarget; 
ELSE 

iTargetNo= *pnGP.aTargetGroups[iShape].rGroupParms.iSecondaryTarget; 
ENDJF; 



10E04 



// Access required values 
pnAC = rSessionParms.pnAC; 
pnTP =*pnAC.rActivityControLpnTP; 
pnlS =*pnAC.rActivityControl.pnlS; 

pChildToolBar=*pnlS.alconSet[iTargetNo].rlconParms.pChiidToolBar; 
pOtherControi=*pnlS.alconSet[iTargetNo].rlconParms.pOtherControl; 
iMenuTag =*pnlS.alconSet[iTargetNo].rlconParms.iMenuTag; 
*pnTP.rToolBarParms.pSelectedTargetlden = iTargetNo; 

] 




// Sub-Toolbar requested 
sNextAction ="Toolbar"; 
iReturnValue = pChildToolBar; 



// Sub-Toolbar requested 
sNextAction ="Contror'; 
iReturnValue = pOtherControl; 



10E06 





II Leaf menu requested 
sNextAction ="Function"; 
iReturnValue = iMenuTag; 
bMoveCursor=rSessions.bMoveCursor; 


— 


p, 
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PROCEDURE GenerateAncestorToolBar(iAncestorNo, 

rRegions, aApexParms, rCentralArea, 
rSessionParms, llnAC, llnTP, llnGP, llnIS); 

1 3 : 



10F00 



pnAC = rSessionParms.pnAG; 
pnTP =*pnAC.rActivityControl.pnTP; 
pnGP =*pnGP.rActivityConlrol.pnGP; 
pnIS =*pnlS.rActivityControl.pnlS; 
iGenerationNo = rSessionPaims.iGenerationNo; 
rSessionParms.iGenerationNo = iAncestorNo; 



10F102 



DO iCurrLevel = iGenerationNo DOWN_TO (iAncestorNo+1) BY -1 



pnParentAC = *pnAC.pParent; 
RELEASE_MEMORY(*pnAC); 
pnAC = pnParentAC 



pnParentTP = *pnTP.pParent; 
RELEASE_MEMORY(*pnTP); 
pnTP = pnParentTP; 



pnParentGP = *pnGP.pParent; 
RELEASE_MEMORY(*pnGP); 

pnGP = pnParentGP; 



pnParentIS = *pnlS.pParent; 
RELEASE_MENIORY(*pnlS); 

pnIS = pnParentiS; 



T 



10F104 



END_DO(memory release); 



// Load pnAC of requested ancestor toolbar to rSessionPanms 
rSessionPamis.pnAC = pnAC; 
pnTP =*pnAC,rActivityControl.pnTP; 
IGenerationNo = IAncestorNo; 



10F106 



// Alter dimensions of existing toolbar window. 
cTLTBWindow.X =-iHalfShellWidth; 

cTLTBWindow.Y = iHalfShellHeight+iGenerationNolTitleBarHeight; 
handleTBWindow = rSessionParnns.handleTBWindow; 
INumRegions = *pnTP.rToolBarParms.iNumRegions; 
iHalfSiiellHelght= 

rRegions.aVarParmspNumRegionsj.rVariables.iHalfStiellHeight); 
iWinHeight= 2*iHalfShellHeight + iGenerationNolTitleBarHeigtit; 
iWinWidth = 2*iHalfStiellWidth+(iGenerationNo-1)*iTitleBarHeight; 
EMPTY_WINDOW(HANDLE= handleTBWindow); 
ALTER_WINDOW(HANDLE= handleTBWindow, 

LOCATION=(-iHalfShellWidth, 

(+iHalfSheilHeight + IGenerationNolTitleBarHeight)), 

HElGHT=iWinHeight, 

WIDTH =iWinWldth); 
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// Render ToolBar shell 

GenerateShell(rRegions, aApexParms, rSession Farms, llnAC, llnTP); 

4r 



// Render selected CentralArea for ToolBar 
GenerateCentralArea( rCentralArea, rSessionParms, llnAC, llnTP); 

4r 



// Render targets, icons, & labels in their appropriate regions 
GenerateTargets{rRegions, aApexParms, rSessionParms, llnAC, llnTP, llnGP, llnlS); 



9E00 
9F00 

9G00 



// Position cursor near display center & set appropriate fill. 
CASE(iGenerationNo) 

1:iCurrHost = -3; 

2: iCurrHost = -1; 

3: iCurrHost = -2; 
END^CASE; 

rSessionPamris.iCurrHost = iCurrHost; 
rSessionParms. iCurrHostGroup = null; 
rSessionParms.iPriorHost= null; 
rSessionPanms.iPriorHostGroup= null; 
PUT_CURSOR(0, +5); 

FILL(IDEN=iCurrHost, COLOR=rRegions.rFixedParms,clrHostingF(ll); 



10F202 
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PROCEDURE TerminateToolBar(bMoveCursor, 
rSessionParms, llnAC, llnTP, llnGP, llnIS); 



DESTR0Y_W1ND0W{ 
HANDLE=rSessionParms.handleTBWindow); 



TRANSLATE_AX1S( 

FROM= rSessionParms.cCenterCentralArea, 
TO = rSessionParms.clnitialAxisOrigin); 



// As appropriate, jump cursor to pre-ToolBar coords 
IF(bMoveCursor) 

PUT_CURSOR(LOCATION=(rSessionParms.cStartCursor); 



10G00 
10G02 

10G04 
10G06 



pnAC = rSessionParms.pnAC; 
pnTP =*pnAC,rActivityControl.pnTP; 
pnGP=*pnGP.rActivityControl.pnGP; 
pnIS =*pnlS.rActivityControl.pnlS; 
iGenerationNo = rSessionParmsj'GenerationNo; 



10G08 



DO iCurrLevel = iGenerationNo TO 1 BY -1 



// Release all run-time memory allocation 
pnParentAC = *pnAC.pParent; 
RELEASE_MEMORY(*pnAC); 

pnAC = pnParentAC; 

pnParentTP = *pnTP.pParent; 
RELEASE^MEMORY(*pnTP); 
pnTP = pnParentTP; 

pnParentGP = *pnGP.pParent; 
RELEASE„MEMORY(*pnGP); 

pnGP = pnParentGP; 

pnParentIS = *pnlS.pParent; 
RELEASE^MEMORY{*pnlS); 
pnIS = pnParentIS; 



END_DO(memory release); 



( RETURN ) 

FIGURE 10G 



